home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dmewredd / ddtpw.exe / DDTPBind5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-22  |  3.0 KB  |  94 lines
  1. VERSION 5.00
  2. Object = "{35020227-5912-11D1-9A00-00C04FD8DC2E}#1.0#0"; "DDTP.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DameWare Date and Time Picker"
  5.    ClientHeight    =   2460
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4635
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2460
  11.    ScaleWidth      =   4635
  12.    StartUpPosition =   1  'CenterOwner
  13.    Begin DDTPLibCtl.DDTPCtl DDTPCtl1 
  14.       DataField       =   "SelectedDate"
  15.       DataSource      =   "Data1"
  16.       Height          =   375
  17.       Left            =   840
  18.       TabIndex        =   0
  19.       Top             =   480
  20.       Width           =   3015
  21.       _cx             =   1184966
  22.       _cy             =   1180309
  23.       DateTimeStyle   =   2
  24.       DateDisplayFormat=   "dddd', 'MMMM d', 'yyy"
  25.       UseCustomDateFormat=   0
  26.       CalBackGroundColor=   16777215
  27.       CalTextColor    =   0
  28.       CalTitleBkColor =   8388608
  29.       CalTitleTextColor=   16777215
  30.       CalTrailingTextColor=   8421504
  31.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       dDate           =   36028.5223611111
  41.    End
  42.    Begin VB.TextBox Text1 
  43.       Alignment       =   2  'Center
  44.       DataField       =   "SelectedDate"
  45.       DataSource      =   "Data1"
  46.       Height          =   285
  47.       Left            =   840
  48.       TabIndex        =   2
  49.       Text            =   "Text1"
  50.       Top             =   1080
  51.       Width           =   3015
  52.    End
  53.    Begin VB.Data Data1 
  54.       Caption         =   "Data1"
  55.       Connect         =   "Access"
  56.       DatabaseName    =   "Bind.mdb"
  57.       DefaultCursorType=   0  'DefaultCursor
  58.       DefaultType     =   2  'UseODBC
  59.       Exclusive       =   0   'False
  60.       Height          =   300
  61.       Left            =   840
  62.       Options         =   0
  63.       ReadOnly        =   0   'False
  64.       RecordsetType   =   1  'Dynaset
  65.       RecordSource    =   "DateTable"
  66.       Top             =   1560
  67.       Width           =   3000
  68.    End
  69.    Begin VB.Label Label1 
  70.       Caption         =   "Selected Date"
  71.       Height          =   615
  72.       Left            =   120
  73.       TabIndex        =   1
  74.       Top             =   1080
  75.       Width           =   735
  76.    End
  77. Attribute VB_Name = "Form1"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Sub Data1_Reposition()
  83.     s = CStr(Data1.Recordset.AbsolutePosition + 1)
  84.     s = s + " of " + CStr(Data1.Recordset.RecordCount)
  85.     Data1.Caption = s
  86. End Sub
  87. Private Sub DDTPCtl1_DateChange(ByVal d As Date)
  88. Text1.Text = d
  89. End Sub
  90. Private Sub Form_Initialize()
  91.     Data1.Recordset.MoveLast
  92.     Data1.Recordset.MoveFirst
  93. End Sub
  94.